Top 10k strings from Database (1982)(Gemini Marketing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 vt,ht;z$(1
   2 t$(i);" ";f$(i):
   2 e(nf))=m$(1
   2 e(nf))=d$(j,1
   2 e(nf))=d$(j+1
   1 vt,ht;s$;"  ":
   1 vt,ht;f$(f);" "
   1 vt,ht+ic;" ":
   1 vt,ht+ic;"
   1 vt,ht+ic-1
   1 s$=s$+".":
   1 i$="16140120":
   1 i$="14150221":
   1 i$="12200221":
   1 i$="06200111":
   1 i$="04200321":
   1 i$="02200321":
   1 i$="02200111":
   1 i$="02170221":
   1 i$="02140321":
   1 i$="02080321":
   1 i$="00151011":
   1 f$(i)=d$(re)(s(i)
   1 e(o))>d$(j+1
   1 e(i)=x+l(i):
   1 e(i)-s(i)+1
   1 e(i))=f$(i)(1
   1 database  
   1 d$(re,s(i)
   1 by,tx;b$(1
   1 Record#";re;"
   1 Record #";re;"
   1 Peter Smith 246000  Simon Jones 346200  John Ford   328200  Harry Smith 193500  Dale Parsons286000                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
   1 Name      Age       Salary    
   1 Database  %
   1 Created with Ramsoft MakeTZX
   1 Change a record
   1 Add a record
   1 ;t$(i);" ";f$(i):
   1 ;"total of field ";f:
   1 ;"You may choose from these:-":
   1 ;"Which field "
   1 ;"Type    Length":
   1 ;"Total which field?"
   1 ;"Tel (03952) 5832"
   1 ;"Select Option"
   1 ;"START RECORD":
   1 ;"Record#":
   1 ;"RECORD#";re:
   1 ;"LOADING PROGRAM .. PLEASE WAIT"
   1 ;"HOW MANY FIELDS?":
   1 ;"Exmouth";
   1 ;"England";
   1 ;"9 Salterton Road";
   1 ;"1. Add a Record to File","2. Change a Record","3. Delete a Record","4. Find/Sort Records","5. List/Print Records","6. Total Items by Field","7. Create a New File","8. Save File on Cassette","9. Exit Program":
   1 ;" RECORDS REMAINING"
   1 ;" RECORDS ON FILE";
   1 "database"
   1 "Search key ":
   1 "SYSTEM CLOSED":
   1 "Record number ":
   1 "RECORD#";re:
   1 "FILE FULL":
   1 "END RECORD":
   1   1982 Gemini Marketing Ltd"
   1                                     q
   1                                                                 
   1